unit uSetHotKey;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TF_SetHotKey = class(TForm)
    HotKey1: THotKey;
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
    function ModalShow(var AHotKey:TShortCut):Integer;
  end;

var
  F_SetHotKey: TF_SetHotKey;

implementation

{$R *.dfm}

{ TForm2 }

function TF_SetHotKey.ModalShow(var AHotKey: TShortCut): Integer;
begin
  result:=Self.ShowModal;
  AHotKey:=HotKey1.HotKey;
end;

end.
